Imports Microsoft.Office.Interop
Imports Microsoft.Office.Interop.Access

Public Class AccessMacroTransformer
    Inherits BaseAccessObjectTransformer
    Implements IAccessColection


    Public Overrides Function getSubfolder() As String

        Return "Macros"

    End Function

    Public Overrides Function getExtension() As String
        Return "ACS"
    End Function

    Protected Overrides Function getAccessType() As Microsoft.Office.Interop.Access.AcObjectType
        Return AcObjectType.acMacro
    End Function

    Public Function getObjects() As Microsoft.Office.Interop.Access.AllObjects Implements IAccessColection.getAccessObjects
        Return _app.CurrentProject.AllMacros
    End Function
End Class